home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok31 / sysrequest / sysrequest.def < prev    next >
Encoding:
Modula Definition  |  1993-11-04  |  1.2 KB  |  33 lines
  1. (*---------------------------------------------------------------------------
  2.     :Program.     SysRequest.def
  3.     :Contents.      Leitet System-Requester und eigene auf eigenen Screen um
  4.     :Author.      Bernd Preusing
  5.     :Address.      Gerhardstr. 16  D-2200 Elmshorn
  6.     :Phone.      04121/22486
  7.     :Copyright.      Public Domain
  8.     :Language.      Modula-2
  9.     :Translator.  M2Amiga V3.2e
  10.     :History.      V1.0 08-Oct-89 Bernd Preusing
  11.     :Bugs.      none
  12. ---------------------------------------------------------------------------*)
  13. DEFINITION MODULE SysRequest;
  14.  
  15. FROM SYSTEM     IMPORT    ADDRESS;
  16. FROM Intuition    IMPORT    WindowPtr;
  17.  
  18. PROCEDURE SetReqWindow(Win:WindowPtr);
  19. (* :Input.    Win: Das Window, auf dem die Requester erscheinen sollen
  20.    :Semantic.    Nach Aufruf dieser Prozedur erscheinen alle Requester auf
  21.    :Semantic.    dem Screen, auf dem das Window liegt
  22.    :Remark.    Diese Prozedur muß nicht aufgerufen werden, dann erscheinen
  23.    :Remark.    die Requester auf dem Workbench Screen.
  24.    :Reamrk.    Eine TermProcedure setzt das alte Fenster wieder.
  25. *)
  26.  
  27. PROCEDURE Requester(header,body,pos,neg:ADDRESS):BOOLEAN;
  28. (* :Input.    genau wie Arts.Requester
  29.    :Result.    TRUE: User hat pos angeklickt  FALSE: neg
  30.    :Remark.    Nur body und pos dütfen NIL sein!
  31. *)
  32. END SysRequest.def
  33.